(comment bps 200000 list 400000 fixnum 400000 symbol 400000) (princ '|Init file loaded|) (terpri) (print '*)